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0001 PROGRAM CVTMSG 

bOe C 

BR8? : Version: *v04-000' 

Bone COR eee Ree EERE RARER RARER RARER EAE REA EEE TEE AEE EEEEE 
Ce * 

0007 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

0008  C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

484 es ALL RIGHTS RESERVED. * 

® 

0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

pols C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

001 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

gote ‘° TRANSFERRED. * 
® te 

0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

Bose ~ CORPORATION. * 

t 

ot t4 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

00 C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0024 C* * 

0025 Ce * 

Bo¢6 CORR eee RRA RARE ERA EAA AREER AREA AEA AAA AAA AERA ATA EERAAARERAEREE 

00 

0098 (=== 

iS 94 C 

Boas : Abstract: 

0032 C The costoutng is a mutation of SYSMSG.FOR for the purpose of tronstating 

oe? : MDL message file data into syntax appropriate for the Message File Compiler 

0035 C Author: Tim Halvorsen, Dec 1980 

0036 C 

0037 C Modified by: 

0038 C 

0039 C v004 TMHO004 Tim Halvorsen 20-Jan-1981 

0040 C Output /MACRO whenever the macro suffix is non-null 

0041 C as well as when the macro name is different. 

98 C Use macro name prefix on single C constructs with $C_ 

Ooe7 : infix rather than no prefix at all, which is incorrect. 

0045 C v003 TMHOO03 Tim Halvorsen 19-Jan-1981 

Bose C Accept macro name suffixes and output them correctly 

sok 4 : when generating a /MACRO=macnam construct. 

0049 C v002 TMHOOO2 Tim Halvorsen 22-Oct-1980 

0050 C Fix OPEN_OUTPUT to extract file name portion of output 

itd : filespec correctly when no directory portion is present. 

0088 C 001 TMHOO01 Tim Halvorsen 10-Mar-1980 

site) ; Generate .LITERAL statement for MDL C constructs 

8036 

005 C 
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MSGFIL.SRCICVTMSG 


it 


VAX=11 FORTRAN 
DISKSVMSMASTER 


1 
1 


iF 


1 
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frsto-t94e 99:16:11 


1 


) THEN 
99,ERRCNT 


39 
FORMAT(' Errors detected:',15) 


END 


TYPE 


(UNI T=3) 
CALL EXIT 


ERRENT NE 


ets £8" 
END IF 


CLOS 
IF ¢ 
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2000 
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d 7 
CVTMSG 16-Sep-1984 02:16:1 VAX-11 FORTRAN V3.4-56 Pa 4 
g-3e8-13 4 aah ee DISKSVMSMASTER: EMSGFIL.SRCICVTMSG.FORTT™ 

PROGRAM SECTIONS | iE 
Name Bytes Attributes 818 
SCODE 329 PIC CON REL LCL SHR EXE RD NOWRT LONG | 016 
? SPDATA 83 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 016 
i SLOCAL 144 PIC CON REL LCL NOSHR NOEXE RD WRT LONG ai¢ 
TEXT 334 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 16 
4 VARS PIC OVR REL GBL SHR NOEXE RD WRT LONG 016 
5 LOGVAR PIC OVR REL GBL SHR NOEXE RD WRT LONG | 016 
OUT 164 PIC OVR REL GBL SHR NOEXE RD WRT LONG 016 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 618 
Total Space Allocated 65071 oi) 
017 
ENTRY POINTS gt? 
Address Type Name gt? 
0-00000000 CVTMSG ote 
018 
VARIABLES a 
Address Type Name Address Type Name Address Type Name Address Type Name a 
4-00000014 I*4 BINVAL 4-0000000C 1*4 CODE 4-00000004 1*4 COL 6-00000088 1I*4 CURNUM 018 
6-0000008C 1*4 CURSEV 4-00000010 I*4 ERRCNT 2-00000000 L*1 GETNUM 4-00000008 I*4 INDEX 018 
6-00000090 I*4 LASTFACNUM 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 1*4 OUTFLAG 018 
2-00000004 I*4 SYNTAX $18 
619 
ARRAYS 34 
Address Type Name Bytes Dimensions O19 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 019 
3-000000E4 Lel FSPEC BO (BO) 019 
L*1 LASTPREFIX 18 (16) 019 
L*1 LINE 132 (132) 019 
4 L*l MACRO_NAME 16 (16) 019 
134 L*l MACRO-SUFFIX 16 (16) 020 
AS L*l NAME 32 (39) | 850 
L*1 OUTLINE 432 «(132) 0 
84 Lel PREFIX 16 (16) 020 
-000000C4 L*l SYMBOL_NAME 32. (32) 8 3 
020 
LABELS ose 
Address Label Address Label Address Label Address Label Address Label Address Label 031 
0-0000001D 60 -00000033 70 0-000000E0 9 0-00000046 100 0-000000E8 200 0-000000F5 300 1 
0-000000FF 400 p- 0000109 2000 etait 2299" : 
021 


CVTMSG 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
ERROR EVALC 
L*1 GETLIN MAK SUBS 
STRUCT L*1 UNBLNK 


Type Name 


L*1 


FORS 
NEXT 


CLOSE 
FILE 


bs 


ep-9be 98:18:13 


Type Name 


FORSEXIT 
OPEN_OUTPUT 


VAX=11 FORTRAN Ye 4-56 
DISKSVMSMASTER: 


Type Name Type Name 
L*1 GENCMP L*1 GETIDENT 
SETUPFILE SKIPV 


Pa 
MSGFIL.SRCICVTMSG.FOR: 
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ww 
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vgn} 216: 


OPEN (UNIT=1,NAME="SUBSYSIDS', TYPE="OLD" ,READONLY,ERR=900) 


READ (1 72-ENDSG00) FACNUM,FACLEN, (FACNAM(1),1=1,FACLEN) 
FORMAT { 
IF ACLEN- St F-MAXSYMS1Z- -1) THEN 
MAXSYMS1Z)=0 
CALL WAERRORT IAS SUBNAMLONG) 


END IF 

FACNAM(FACLEN+1)=0 

CALL MOVNAM(FACNAM,FACILITIES(1,FACNUM+1)) 
GOTO 100 


CLOSE (UNI T=1) 
RETURN 


CALL _ERROR(15,F ILNOTFND) 
RETURN 
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MAKSUBS 


Sep-1984 AX=11_ FORTRAN 
ifese att 7 98: 18: 15 D1 SKSVMSMASTER: R: MSGF IL. SRCICVTMSG. FOR; i 
PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 190 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 6 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 156 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
& VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR 4 PIC OVR REL GBL HR NOEXE RD WRT LONG 
OuT 194 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 64900 
ENTRY POINTS 
Address Type Name 
0-00000000 MAKSUBS 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 2-00000028 I*4 FACLEN 2-00000024 I*4 FACNUM 
2-00000030 I*4 FILNOTFND 2-00000020 [4 4-00000008 I*4 INDEX 6-00000090 I*4 LASTFACNUM 
4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG 2-0000002C I*4 SUBNAMLONG 
ARRAYS 
Address Type Name Bytes Dimensions 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 
¢-90000000 L*] FACNAM 35 (335 
4 Ll FSPEC 80 (80) 
4 L*l LASTPREFIX 16 (16) 
L*l LINE 132 (132) 
L*1 MACRO_NAME 16 (16) 
134 Lel MACRO-SUFFIX 16 (16) 
~$0000004 te] OUTLINE 135, (792) 
® 
-00000084 L*l PREFIX 1 (16) 
300000084 L*1 SYMBOL_NAME $ (32) 
LABELS 
Address Label Address Label Address Label Address’ Label Address Label 


ee 10 1-00000012 99° 0-00000030 100 0-O000000AC 400 0-00000085 900 


MAKSUBS 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
ERROR FORSCLOSE 


Type Name 
FORSOPEN 


ieSeec198E 98:16:11 


Type Name 
MOVNAM 


AX=-11_ FORTR 
ISKSVMSMAST 


AN y3.4-5 
en: FRSGr iL. SRCICVTMSG. FORTY 
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00¢ 
3 
004 
005 
005 
00° 
005 
00° 
00° 
005 
005 
005 
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00¢ 
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Q0¢ 
00€ 
00¢ 
00€ 
00¢ 
00¢ 
00¢ 
00¢ 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
008 
00 
00 
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9 STR 


Sep-1 716:1 VAX=11_ FORTRAN V3.4-56 P 
ifoseoc1 984 98: 18: 13 DISKSVMSMASTER: LMSGFIL.SRCICVIMSG.FORST® 
PRC 
OPEN THE FILE CONTAINING THE LIST OF FILES 

SUBROUTINE S$ Hal # 

AOS LUGE Ht : CVTMSGCOM 

or FORD an NAME = rites’, TYPE="OLD" ,READONLY ,ERR=100) 
sett an ERROR(9,F ILNOTFND) 


~ITR LA ia) 65 


SETUPF ILE Oe: 16:1) VAX=11 FORTRAN V3.4-56 Pa 


DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; 
PROGRAM SECTIONS 


Name Bytes Attributes 
9 SCODE 30 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 10 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 6 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR PIC OVR REL GBL SHR NOEXE RD WRT LONG 
$ OUT 496 PIC OVR REL GB SHR NOEXE RD WRT LONG 
FACNAMS 64052 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 64644 
ENTRY POINTS 
Address Type Name 
0-00000000 SETUPFILE 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 1*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 2-00000000 I*4 FILNOTFND 4-00000008 I*4 INDEX 
6-00000090 I*4 LASTFACNUM 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG 
ARRAYS 
Address Type Name Bytes Dimensions 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 
3-000000E4 L*1 80 (805 
mais 44 444 L*l LASTPREFIX 16 (16) 
L*l LINE 132 (132) 
-00000094 L*l MACRO_NAME 16 (16) 
-00000134 L*1i MACRO_SUFFIX 16 (16) 
-000000A4 L*l NAM 35 363 
L*1 OUTLINE 1 (132) 
L*l PREFIX 16 (16) 
C4 L*l SYMBOL_NAME 32. (32) 


LABELS 
Address Label 
0-00000015 


qe 10 


Lee) 


S388888383338 


q 11 


Pa 
FOR; 


Yesteie 
> CMSGFIL.SRCICVTMSG 


VAX=11_ FORTRAN 
DISKSVMSMASTER 


FORSOPEN 


FUNCTIONS AND SUBROUTINES REFERENCED 


SETUPF ILE 


12 


se 1984 92:16:1 VAX=11 FORTRAN V3.4-56 Pa 
Br 8ep- 1 dBc 4 98:18:13 DISKSVMSMASTER: EMSGFIL.SRCICVIMSG.FORST® 


OPEN THE NEXT FILE IN THE LIST OF FILES TO PROCESS 
ter’: FUNCTION Weeroate 


B58 


SSoSESS 

4 uw COO 
oO 

ww" DZ 

omm 

z2Yr™x 

zo- 

>a 

“We 

oe 


a *SRC$: CVT 
T=1) 


59, FNb=800) 1,FSPEC 


+1) =0 
4 OPEN CONITE] »NAME=F SPEC, TYPE="OLD" ,READONLY,ERR=100) 
5 eee ieeot RUE. 
6 300 RETUR 
0057 100 CALL EPROR(10,F ILNOTFND) 
0058 GOTO 50 
0959 ENL 


é 
7 
‘ 
i 
‘ 
{ 


z 


NEXTFILE 


PROGRAM SECTIONS 
Name 


NOVUPWN Oo 
e 

> 

» 


FACNAMS 
Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 L*1 


Name 
NEXTFILE 


VARIABLES 
Address Name 

BINVAL 

CURSEV 
4-00000008 I*4 INDEX 
5-00000000 I*4 OUTFLAG 

ARRAYS 

Name 

FACILITIES 


LASTPREF IX 
LINE 


MACRO_NAME 
MACRO_ SUFFIX 
NAM 


Address 


4-0000000C 
4-00000010 
6-00000090 


ao @® 
=~ ~< 
—_ o 7 
Ww @® 
mm w 


WoW 00 
MOAMNMAANMAOS 


Label 


SYMBOL _NAME 
LABELS 
Address Label Address 
0-00000009 50 1-00000004 99° 


Attributes 
PIC CON REL LCL 
PIC CON REL LCL 
PIC CON REL LCL 
PIC OVR REL GBL 
PIC OVR REL GBL 
PIC OVR REL GBL 
PIC OVR REL GBL 
PIC OVR REL GBL 
Type Name 
I*4 (CODE 
1*4 


ERRCNT 
I*4 LASTFACNUM 


Dimensions 
2001) 


a 


~ 


(32 
(80 
(16 
(13 
(16 
us 
i 
(16 
(32 


~~ ee Qe we ee Qe 


Address’ Label 
0-00000063 100 


>< >< OK OK OK OE OK OK 
Mmmmmmmmemnecrn 


SHR NOE 


Address 
4-00000004 


2-00000008 
4-00000000 


Address 
0-0000005E 


RD NOWRT 
RD 


Type 
1*4 
1*4 


Label 
300 


COL 
I*4 FILNOTFND 
NUM 


page 13 
» SRCICVTMSG.FOR; 


Name 
CURNUM 
OUTCOL 


Address Type 


6-00000088 14 
2-00000004 I*4 
6-00000000 1*4 


eee...) ttt 


Evi 


Ful 


acu 


| N 7 
NEXTFILE 16-Sep-1984 216: > 4° 
87900-1382 Pe 1gi tt NI KSUNGORS TEN: FRSGFTE. SRCICVTMSG. FORTY - 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
ERROR FORSCLOSE FORSOPEN 


00( 
( 
( 
OC 
OC 
« 
i 
09! 
00é 
00é 
90; 
i 
00‘ 
00! 
00! 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00. 
00. 
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VAX=11 FORTRAN 
DISKSVMSMASTER 


EE page 
:CMSGFIL.SRCICVTMSG.FOR; 


15 


| 

| 

PROCESS MESSAGE DEFINITION LINE | 
SUBROUTINE GETMSG 
INCLUDE ‘SRCS$:CVTMSGCOM' | 
L AL*1 T(128) | 
GE TNUM GETIDENT ,GENCMP, UNBLNK , IDENT 
TR ‘ ) | 


OUTPUT .LITERAL IF ‘';MSG'' NOT FOUND TO SIGNIFY MESSAGE DEFINITION 


NERF UN HOON Wr 
OOO OOO 


$3 
Ow 


35 


IF (.NOT.GETIDENT().OR..NOT.GENCMP (NAME, ZREF('MSG'))) THEN 
CALL CONCAT (PREF IX REF CCFACILIEY®) .NAME) 


28 


CALL_CONCAT(PREFIX,SYMBOL_NAME ,LITERAL_NAME) 
OL=COL+1 
IF CIDENT (NAME ,LITERAL_NAME)) RETU 
0064 CALL BUFFER(ZREF(' LITERAL ")) 
ae CAL BUFFER RATAN 
's 

006 CALL BUFNUM(CODE) 
9068 CALL OUTPUT_LINE 

9 E TURN 
0070 END IF 
0071 «¢ 
007¢ C If THE FACILITY LINE HAS NOT YET BEEN OUTPUT, THEN 
007 ¢ OUTPUT IT NOW. 

0074 «=O 

0075 NEED_BLANK=.FALSE. 

0076 FACNOM= (CODE .AND. ‘OF FFOO00'X)/2*#16 

007 CALL MOVNAM(FACILITIES(1,FACNUM+1) , FACNAM) 

0078 IF (FACNUM. EQ. LASTFACNUM. AND. IDENT (PREF IX,LASTPREFIX)) GOTO 20 
0079 IF (IDENT (MACRO_NAME, REF ('SHR'))) CALL MOVNAM(MACRO_NAME , FACNAM) 
ea CALL BUFFER(ZREF(' FACILITY ")) 

1 CALL BUFFER(FACNAM) | ; 
0082 CALL BUFFER(ZREF(',*)) 
008 CALL BUFNUM(FACNUMS 

IF ((CODE.AND.°8000'X).£.0) CALL BUFFER(ZREF(' /SHARED')) ( 

5 IF (CODE.GE.0) CALL BUFFER(EREF(’ /SYSTEM')) 

CALL CONCAT(FACNAM, ZREF('$ °), NAME) 
IF (.NOT. IDENT (NAME ,PREFIXT) THEN | 
CALL BUFFER(ZREF(' /PREFIX=")) | } 
89 aig CALL BUFFER(PREF IX) | 
1 IF (.NOT.IDENT(FACNAM,MACRO_NAME).OR.LENGTH(MACRO_SUFFIX).NE.O) THEN | 
@ CALL BUFFER(ZREF(' 7MACRO=')) 
CALL BUFFER(ZREF('S$")) | 
CALL BUFFER(MACRO_NAME) | 
5 IF (LENGTH(MACRO_SUFFIX).NE.O) THEN 
aie CALL BUFFER(MACRO_SUF FIX) | 
8 CALL BUFFER(ZREF('DEF*)) | 
END IF 


ifosennt9ge 98:16:11 


IF ((CODE. ao rer X)/2**3.NE. CURNUM) THEN 
CUR ae (CODE AND. *7FF8'X)/2e#3 
IF (.NOT.NEED BLANK) CALL _OUTPUT_LINE 
CALL BUFFER(ZREF(' -BASE 
C NUM) 
_BLANK=. TRUE. 
END IF 
CURNUM = CURNUM + 1 


IF (NEED_BLANK) CALL OUTPUT_LINE 


SOOOSOSOSOSOSOSOOCOOOSOOOOSOSOOSOSOSSOOSOSCOSOSOOCOSCOOOOOOOOOCOOCOOOOCOOOOOoOo 


a a aa kk td tk a as od = = 2 a 2 2 2 2 2 ot 2 = ts 


DO 50 I=1,7 
40 50 VECT(1)=0° 
4) GOT 
ri 150 IF CUNBLNK().NE.*,*) GOTO 1000 
& COL=COL+ ee 
4h 200 IF (UNBLNK().EQ.°<") pr0 800 
45 IF CGeTIDENT 9 Goro 
r¢ 250 cont gre (11, BADMSGSYNTAX) 
48 300 IF (GENCMP(NAME ,ZREF('IDENT'))) GOTO 309 
49 C IF (GENCMP (NAME , ZREF Be dts at tt} GOTO 550 
50 C IF (GENCMP (NAME ,ZREF('U ON GOTO 680 
51 IF (GENCMPC(NAME ,ZREF(' PAOCNT »)) oore § 
26 C LF aobe MP (NAME ,ZREF("LANG'))) GOTO 70 
54 500 IF (UNBLNK().NE.*=") GOTO 250 
55 COL=COL+1 
2$ IF 75, EOENT Es -EQ. pF AL SE. ) GOTO 250 
5 VECT(7) =LENGTH(NAME ) 


VAX=11 FORTRAN 
DISKSVMSMASTER 


1 at OUTPUT LINE 
¢ Aeteac ROVNARTPREF 1X, LASTPREF IX) 
LASTEA FA 
5 CURSey= 
NEED BLANK=. TRUE. 

i ¢0 CONTINUE 
09 3 IF THE SEVERITY HAS CHANGED, OUTPUT A SEVERITY STATEMENT 
11 IF ((CODE. ae 7) .NE. ye es THEN 
1 CURSEV=CODE . AN 
1 IF ¢. nop f NEED "ae CALL OUTPUT LINE 
14 CALL B eat SEVERITY *)) 
15 IF (CURSEV £0. ) CALL BUFFER(ZREF ('WARNING')) 
18 IF (CURSEV.EQ.1) CALL BUFFER(ZREF(*SUCCESS')) 
1 IF gEUR SEV 50-6? CALL BUFFER(ZREF(*ERROR')) 
18 IF (CURSEV.EQ.3) CALL BUFFER(ZREF (* INFORMATIONAL ')) 
19 IF (CURSEV.EQ.4) CALL BUFFER(ZREF ("FATAL 

0 IF (CURSEV.GE.5 .AND. CURSEV.LE.7) CALL BUFFER(ZREF(* 2UNKNOWN?")) 
1 CALL OUTPUT_LINE 

¢ NEED_BLANK=.TRUE. 

Z c END IF 

é : IF THE Me SSAGE NUMBER IS NOT PREV+1, THEN OUTPUT A .BASE STATEMENT 
8 

9 

0 

: 

5 

7 

9 


EE es page 
: CMSGFIL.SRCICVTMSG.FOR; 


FU 


GETMSG 1g: seo-1984 99:19:11 VAX=11_ FORTRAN 17 


Wstere page 
-Sep-19 DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; 


1 CALL MOVNAM(NAME , IDSTR) | 
18 cart f 
160 550 ASSIGN 570 TO RETURN 
161 GOTO 75 
168 570 VECT(1)=NUM 
16 GOTO 150 | 
164 600 ASSIGN 620 TO RETURN 
165 GoTA {5 | 
166 620 VECT(3) =NUM 
16 GOTO 150 
168 650 ASSIGN 670 TO RETURN 
if GOTO 75 
170 670 VEC1 (2) =NUM | 
171 GOTO 59 
178 700 ASSIGN 720 TO RETURN 
17 GOTO 750 
017% 720 VECT(5) =NUM 
175 GOTO 150 
S173 750 IF (UNBLNK().NE.*=") GOTO 250 | 
0178 COL=COL+1 
0179 IF (GETNUM().EQ..FALSE.) GOTO 250 
0180 GOTO RETURN 
0182 800 COL=COL +1 
01 IF (IDFLAG.EQ. FALSE. OR. VECT(7). NE.0) GOTO 830 
184 VEC CTC D=LENGTHG SYMBOL AME ) | 
185 0 820 1=1 MA SIZ = 
186 OOSTACIS =SYMBOL E(1) 
018 IF CIDSTR(I) EQ. =o)" EOTO 830 
0188 820 CONTINUE 
0189 CALL ERROR(12, IDTOOLONG) 
0190 830 TMPPTR=1 
0191 B45 IF (LINE(COL).£Q.">") GOTO 900 
0198 850 TEXT CIRBPTRD LINE (CO L) 
019 TMPPTR=TMPPTR 
0194 COL=COL+ 
0199 IF IF (COL ALE. .120) GOTO 845 
es 900 CoecoL +1 
0198 iF (LINE(COL).EQ.">") GOTO 850 
0199 TEXT (TMPPTR) =0 
9200 GOTO 150 
| 
0208 1000 IF CUNBLNK() .NE.'; "AND. YNBLNK (>, NE.0) GOTO 250 
0 CALL BUFFER(ZREF ( )) 
CALL BUFFER(SYMBOL_NAME) 
05 if (OUTCOL.LT.9) TREN | 
06 CALL BUFFERLEREF (* ")) | 
0 ELSE | 
08 CALL BUFFER(ZREF(' ")) | 
10 DO 1610 1=1,LENGTH(TEXT) 
11 IF (TEXT(1).EQ.'>'.OR. TEXT(1).EQ."<") GOTO 1020 
1 1010 CONTINUE | 
1 CALL BUFFER(ZREF(*<")) | 
14 CALL BUFFER(TEXT) 


‘ cath 4 \paleaaaeale las 


1020 CALL BUFFER(ZREF('''')) 
CALL BUFFER(TEXT) 


CALL BUFFER( 
CALL BUFFERCIDSTR 


ND 

CALL OUTPUT_LINE 
2000 RETURN 

END 


—OOBNOUSWN—OOD 


1 
1 
1 
} yi 
1030 IF tvecT ).NE.0) THEN 
CALL BUFNUM(VECT(2)) 
END IF 
IF (VECT(7).NE.0) en 
0 REF ( 
0 
0 
0 
0 


; /IDENT=")) 


ifeseoctgpe Os1g:11 yaKe 


Yn&Gr IL. SRCICVIMSG. FORTY” 
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F 8 
GETMSG -S$ep-1984 08: 16:1] VAX-11 FORTRAN Ye seete poge 
e :13:15 DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; 


PROGRAM SECTIONS | 
Name Bytes Attributes 


0 SCODE 1323. PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA $b PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

TEXT 324 PIC OVR REL SHR NOEXE RD WRT LONG 
4 VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR 4 PIC OVR REL SHR NOEXE RD WRT LONG 
§ T 19 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 66846 


ENTRY POINTS 
Address Type Name 


0-00000000 GETMSG 
Address Type Name Address Type Name Address Type Name Address Type Name 


2-000000E4 I*4 BADMSGSYNTAX 4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 
6-00000088 I*4 CURNUM 6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 2-000000DC I*4 FACNUM 
2-000000E0 I*4 | -OOO000EC I*4 IDFLAG 2-000000F0 I*4 IDTOOLONG 4-00000008 I1*4 INDEX 
6-00000090 I*4 LASTFACNUM -000000DB L*1 NEED BLANK 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 
5-00000000 I*4 OUTFLAG -000000E8 I*4 RETURN 2-000000F4 I*4 TMPPTR 
ARRAYS 
Address Type Name Bytes Dimensions 

FACILITIES 64032 (38 2001) 

FACNAM 32 (305 

FSPEC 80 (o 

IDSTR 20 (20) 

LASTPREF IX 1 (16) 

LINE % (132) 

LITERAL_NAME (32) 

MACRO_NAME 16 (16) 

MACRO_SUFF IX 1 (16) 

NAME ; 362 

OUTLINE 1 (132) 

PREF IX 18 (16) 

SYMBOL _NAME 3 (32 

TEXT 128 (128) 

VECT ? (7) 


| 
| 
| 
VARIABLES 
| 
| 
| 
| 


] 
GETMSG iB-se Sep-1 Rage 20. 


3p 1$8c 98: 18: 15 Df eKSVMSMA qf eR: taser if « SRCICVTMSG.FOR; 


LABELS 
Address Label Address Label Address Label Address Label Address Label Address’ Label | 


a ee 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 


BUFFER BUF NUM CONCAT ERROR L*1 GENCMP L*1 GETIDENT 
L*1 GETNUM IDENT I*4 LENGTH MOVNAM OUTPUT_LINE L*1  UNBLNK 


L*1 


———_ _—_—_—— 


SK 
PR 


qe 21) 


Pa 
-FOR; 


-56 


4 
MSGFIL.SRCICVTMSG 


Rit 


VAX=11_ FORTRAN 
DISKSVMSMASTER 


-EQ.0) GOTO 300 


GOTO 
500 
-EQ..FALSE.) GOTO 200 


GE TNUM TLIN 
ENO 468 
UNBLNK().EQ.0) GOTO 300 


SUFFIX) 


OR? 


) 


T,UNBLNK 
2 FALSE . 

MACRO_NAME ) 

;* OR. UNBLNK () 
'} GOTO 

NE ,MACRO 


vit 


oO 
Oo 
oO 
oo OOCOOOOoOCOoOCOO 
-o SOooOooooOooO 
eee 
OmMooo0o0o0000~ 
Co oe — ee 
-oocooo°coe°oco°o0om™ 
wOor-OV9D9O9V99000— 
”" oO z 
eee ee EY 
- Se Pe PIES. 
ee Ovreceereeeees 


Seddedddddcdde= 

o=ccccccsccc000s 
A SWO WW ts 2 
se ee ee eee eeeeee 
ied 5 sueame Teme Tea Tem tame Teme heme tea am eam tee eee 


255222222222 2=E5 


1 


eet PIE I I I I I I I I I UE OO 


€5%y55525552525"" 


PROCESS MDL SSTRUCT STATEMENT 


~~~ rt Oe ee ee es *—4 


S 


ue 


SSSSSSSSSs3s 


SSSSSSS9923 


388338 


S533 


-END*)) 


LINE 


VALC 
CALL _ERROR(8,MISSINGEND) 


RETURN 

CALL BUFFER(ZREF(' 
CALL OUTPUT 

RE TURN 


COL=COL+1 
END 


CALL 3 
GOTO 300 


STRUCT 


PROGRAM SECTIONS 
Name 


FACNAMS 
Toral Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 STRUCT 


VARIABLES 
Address Type Name 


4-00000014 I*4 BINVAL 
6-0000008C 14 


6-00000090 
5-00000000 14 


ARRAYS 
Address Type Name 


LABELS 
Address Label 


-00000164 


CURSEV 
I*4 LASTFACNUM 
OUTFLAG 


Ta 
LASTPREF IX 
LINE 


MACRO_NAME 
MACRO~ SUF F 1X 
NAM 

SYMBOL _NANE 


Address 


00000025 190 0-0000007¢ 0-00000084 300 


Attributes 


vuuvuvvv0UvU 
be ee 
AOAOOQOOONY 

o 

< 

= 


Type Name 
1*4 CODE 
ERRCNT 
MISSINGEND 
SYNTAX 


Dimensions 


2001) 


CON REL 


m 
Mmmmmmmnccn 


Label 


RD NOWRT 
RD RT 


Type Name 


Label 
500 


VAX=11 FORTRAN 


DISKSVMSMASTER: tasGr ie. SRCICVTMSG.FOR; a 


Address Type 


COL 
L*1 GETNUM 
NUM 
I*4 UNRECOGNIZE 


0-0000015B 800 


STRUCT 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
BUFFER ERROR 
OUTPUT_LINE SKIPV 


Type Name 


L*1 


EVALC 
UNBLNK 


te 


Sep-1 
Sep-1 


Be 18:18:15 


Type Name 


L*1 


GETIDENT 


VAX=11_ FORTRAN 
DISKSVMSMASTER: 


Type Name 
L*1 GETLIN 


n: ASF ie SRCICVTMSG.FOR; 


Type Name 
MOVNAM 


poge 23 


00 
0 
0 

00 

00 

00 

00 

00 

88 
0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

i 


if: seo-1984 REG e Pee UMSARE FAN Paceete secacvimsc.roneg® 24 
EVALUATE MDL C STATEMENT 
SUBROUTINE 


eva | 
INCLUDE "SRES: ty Sit pe 
LOGICAL*1 air aa UNBLN 


33858 
OOn 


iF (UNBLNNK () . EQ. vy ) COTO 100 
CVAL 


100 


COL=COL+1 
CALL GETCLST 
RETURN 


3 

a CALL GET 
4 
5 
6 


oooe 


8 
a I§-Sep-1984 Pegs Tee mGAR REN Beer Te sacacvemsc.roney® 2 
PROGRAM SECTIONS 


Name Bytes Attributes 
SCODE 4 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 1 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 3§ PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 T 164 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocatec 64603 
ENTRY POINTS 
Address Type Name 
0-00000000 EVALC 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
-00000014 I*4, BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 2-00000000 L*1 GENCMP 4-00000008 I*4 INDEX 
6-00000090 I*4 LASTFACNUM 4-00000000 I*4 NUM 6-0 


ARRAYS 


Address Type Name Bytes Dimensions 
7-00000000 L*l FACILITIES 64032 (32, 2001) 
3-000000E4 Lel FSPEC BO (B05 

~00000094 L*1 LASTPREFIX 16 C19) 

-00000000 L*l LINE 132 (132) 

-00000094 L*1 MACRO_NAME 16 (16) 

~00000134 L*1 MACRO_SUFFIX 16 (16) 

-000000A4 L*l NAME $$ (36 
6-000000046 L*1l OUTLINE 1 (132) 
Sonne pore L*1 PREFIX 18 (38) 
C4 L*l SYMBOL_NAME 32. (32) 

LABELS 
Address’ Label 


0-0000001D 


| 

INDE 

0000000 [*4 OUTCOL 5-00000000 1*4 OUTFLAG 

1 

100 
| 

| 


EVALC 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
GETCLST GETCVAL 


Type Name 


L*1 


UNBLNK 


m 8 
Sep- 


Sep- 


1986 98:18:15 


Pa 


« SRCICVTMSG.FOR; 


ge 26 


ER 


B58 


33 


WN OC OONOULWN—OOW 


100 


Se 


ga555 


se 


sssssesssess 
Ct RRR ER 


at) 


Sep-1984 02:16:1 
Ig sen 1984 Pete il 
ROUTINE TO HANDLE MDL C<CNAMEIJC,CCONIJC,CBASEJC,INCRJJ] SYNTAX 


SUBROUTINE GETCLST 
INCLUDE ‘SRC$:CVTMSGCOM’ 
LOGHCALS1 GETIDENT ,UNBLNK,GETNUM, GETLIN 


R= 
LL_MOVNAM(MACRO_NAME , PREF IX) 
(GETIDENT().EQ>.FALSE.> GOTO 100 
L_MOVNAM(NAME PREFIX) 

(UNBLNK() .NE.',") GOTO 200 

= 
( TIDENT() 20; FALSE. GOTO 200 

(LENGTH(PREF IX) +LENGTH(NAME) .GE.MAXSYMSIZ) THEN 
A ERROR( ,NAMTOOLONG) 


—- 
a-+e 
oO 


END IF 
CALL CONCAT (PREFIX ,NAME ,PREF IX) 


CALL CONCAT (PREF IX, BREF ($6 *) ,PREFIX) 
UNBLNK().NE.',') GOTO 400 


L+1 
ET TNUM() BASE=NUM 
CUNBL NK().NE.",") GOTO 400 


+1 
(GETNUM(). EQ..FALSE.) GOTO 500 
NK(). EO. 5 she -UNBLNK().EQ.0) GOTO 700 


OR(1, SYNTAX 
StS NG -) GOTO 1500 


zo "ZOMPO 
Ls - =a-o 
Wancam 

— 


OMNP MTP 


SRSSO=S As TTSTSsO4TO5 o 
=3un9 
Agee 


Ss 
SE+INCR 


toe et -0.OR.INCR.NE.1) CALL ERROR(5S,BASE) 
(GETNUM()) GOTO 820 

CALL ERROR(3,NONUMBER) 

CODE =NUM 


CONTINUE 
Ful atte »NE.*;".AND.UNBLNK().NE.0) GOTO 500 


GOTO 700 
CALL ERROR(6,NOCLOSEANGLE) 
RETURN 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-56 Page 27 
MSGFIL.SRCICVTMSG.FOR; rf 


SSS88883333 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


GETCLST ib-se Sep-1984 1 VAX=11 FORTRAN V3.4-56 28 
eee Fhe PES lS | Pee GOR EON Yate 96 socacvrnse one?” 


PROGRAM SECTIONS 


7 
Nane Bytes Attributes | 
9 +4 422 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
SPDATA 4 PIC CON REL LCL SHR XE RD NOWRT LONG 
§ SLOCAL } 6 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT $¢ PIC OVR ni GBL SHR XE RD WRT LONG 
& VARS 46 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 — 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 Py 495 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PL CHARS 640352 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 65170 
ENTRY POINTS 
Address Type Name 
0-00000000 GETCLST 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
asses 4 I*4 BASE -00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 
88 I*4 CURNUM ~0000008C I*4 CURSEV 4700000015 I*4 ERRCNT 3 444 I*4 INCR 
2 I*4 INDEX 6 0000090 I*4 LASTFACNUM 2-00000008 I*4 NAMTOOLONG 0000014 I*4 NOCLOSEANGLE 
§ I*4 NONUMBER 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG 
~00000008 1*4 SYNTAX 
ARRAYS 
Address Type Name Bytes Dimensions 
FACILITIES 64032 3 2001) 
80 (B05 
LASTPREF IX 1 C19) 
LINE 132 (132) 
MACRG_NAME 16 (16) 
MACRG_ SUFFIX 1 (16) j 
NAM 33 G8) 
OUTLINE 1 (132) 
PREFIX 18 (16) 
SYMBOL _NAME 32 (32) 
LABELS | 
Address Label Address Label Address Label Address Label Address Label Address Label | 
-0000007C 0 -00000084 0 0-000000D0 4 -QQ0000E9 500 -Q00000F1 700 | 
$-000001 36 B-po000168 &o0 «= BebooOnTTE 80 ef 500 B-po0001se #500 © 8-000001AS 1600 


Se Sieg) ne , c— 


GETCLST 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
CONCAT ERROR 
1*4 LENGTH MOVNAM 


Type Name 
L*? GETIDENT 
L*1  UNBLNK 


' 


9 


wSep=19be 18:18:15 


Type Name 
L*1 GETLIN 


Vv 
D 


A 
I 


X-11 FORTRAN 
SKSVMSMASTER 


Type Name 
GETMSG 


ET page 
: CMSGFIL.SRCICVTMSG.FOR; 


Type Name 
L*1 GETNUM 


} 


29 


ot enn ; 


9 
Ib-5e -1984 02:16:1 VAX-11 FORTRAN V3.4-56 Page 30 
~300 71382 aa DISKSVMSMASTER: MSGFIL.SRCICVTMSG.FOR:? 


ROUTINE TO HANDLE MDL ‘’C SYMBOL,VALUE'’ SYNTAX 


| 

SUBROUTINE GETCVAL 

INCLUDE 'SRC$:CVTMSGCOM’ 
LOGICAL®1 GETIDENT ,UNBLNK, GE TNUM 

CONCAT REF ('S$C_*) PREFIX) 

| 


Oona 


L 
(GETIDENT().£Q-. FALSE.) GOTO~106 
MOVNAM 


= 
UNBLNK().NE.';".AND.UNBLNK().NE.0) GOTO 100 
L GETMSG 

RETURN 

CALL ERROR(1,SYNTAX) 
— 


*S7S7S=5 


L 
( 
= 
aa -EQ..FALSE.) GOTO 100 
( 


oO 
> 
_ 


$8888S8SSS388S8S883S8SSSS33S3333333s 


GETCVAL 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address 
4-00000014 
6-0000008C 
4-00000000 
ARRAYS 
Address 


$-00090084 
~000000C4 


LABELS 
Address 


0-00000070 100 


Label 


Total Space Allocated 


Name 
GETCVAL 


BINVAL 
CURSEV 
NUM 


Name 
FACILITIES 
LASTPREF IX 
LINE 
MACRO_NAME 
MACRO” SUF F IX 
NAME 

OUTLINE 


PREF IX 
SYMBOL _NAME 


Bytes Attributes 
121 PIC CON REL 
§ PIC CON REL 
PIC CON REL 
324 PIC OVR REL 
4 PIC OVR REL 
4 PIC OVP REL 
495 PIC OVR REL 
64032 PIC OVR REL 
64729 
Address Type Name 
4-0000000C I*4 CODE 
4-00000010 I*4 ERRCNT 
6-00000000 I*4 OUTCOL 
Bytes Dimensions 
64032 (32, 2001) 
BO (805 
16 C19) 
132 (132) 
16 (16) 
33 (33) 
133. (792) 
16 (16) 
32. (32) 


ifeseo-1986 02.161 


LCL SHR EXE 
LCL SHR NOEXE 
LCL NOSHR NOEXE 
GBL SHR NOEXE 
GBL SHR NOEXE 
GBL SHR NOEXE 
GBL SHR NOEXE 
GBL SHR NOEXE 
Address 
4-00000004 
4-00000008 
5-00000000 


RD NOWRT 
RD NOWRT 
WRT 


Type 
1*4 


1*4 
1*4 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


Name 
COL 
INDEX 
OUTFLAG 


Address 


6-00000088 
6-00000090 
2-00000000 


Ye saste 
MSGFIL.SRCICVTMSG.FOR; 


Type 


1%4 
1*4 
1*4 


CURNUM 
LASTFACNUM 
SYNTAX 


| 


poge 1 


L*1 UNBLNK 


| 
-_| 


F 9 
GETCVAL 16-Sep-1984 02:16: VAX-11 FORTRAN V3.4-56 Page 32 
-Sep- 213: K$V : he VTMSG.FOR; 
Bret aee PES lt iddnSRAS ten: Pager ie. sacacvrm q 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CONCAT ERROR L*1 GETIDENT GETMSG L*1 GETNUM MOVNAM 


GE 


ifese 8op~18ke PSiiSi1s «| NebmGQasten:Pascrie.secacvrmsc.ronsy® > 


C 
; SKIP ALL LINES WHICH ARE PART OF THE MDL V STATEMENT 
eattr o NE S 
INCLUDE "Res: EVTmsGcon” 
LoGi ate 1 GETLIN ee We 
100 i bes tot hie “TRUE.) GOTO 300 


).£0.'>") RETURN 

bor O41 

300 CALL ERROR(6,NOCLOSEANGLE) 
RETURN 


VFW—OOU FE wre 


Mw Aw 


00 
op 

| 
3 
: \ 
00: 
00: 
00 
00 
00: 
00 
00: 
00: 
00: 


SKIPV 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
4-00000014 [#4 
6-0000008C #4 
2-00000000 [4 
ARRAYS 
Address 


7-00000000 


Label 
100 


Name 
SKIPV 


Name 

BINVAL 
CURSEV 
NOCLOSEANGLE 


Name 
FACILITIES 
LASTPREF IX 
LINE 


MACRO_NAME 
MACRO” SUF F IX 
NAM 


SYMBOL _NAME 


Address 
0-00000025 300 


9 


ig-sep—1984 02:16:11 


Bytes Attributes 
46 PIC CON REL LCL SHR EXE 
4 PIC CON REL LCL SHR NOEXE 
4 PIC CON REL LCL NOSHR NOEXE 
324 PIC OVR REL GBL SHR NOEXE 
4 PIC OVR REL GBL SHR NOEXE 
4 PIC OVR REL GBL SHR NOEXE 
196 PIC OVR REL GBL SHR NOEXE 
64032 PIC OVR REL GBL SHR NOEXE 
64622 
Address Type Name Address 
4-0000000C I*4 CODE 4-00000004 
4-00000010 I*4 FRRCNT 4-00000008 
4-00000000 I*4 NUM 6-00000000 
Bytes Dimensions 
64032 (32, 2001) 
mo (00) 
132 (132) 
16 (16) 
16 (16) 
Bg 
"6 (16s 
32 (32) 
Label 


RD NOWRT 


Type 


1*4 
1*4 
1*4 


RD NOWRT 
WRT 


COL 
IND 
OUT 


VAX=11 FORTRAN ¥5 26596 Page 34 
DISKSVMSMASTER: MSGFIL.SRCICVTMSG.FOR: ? 


Address 


6-00000088 
6-00000090 
5-00000000 


Type Name 
1*4 
1*4 
1*4 


CURNUM 
EX LASTFACNUM 
COL OUTFLAG 


cco 
oooo 
2222 
DAAQAG 


SKIPV 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
ERROR 


Type Name 
L*1 GETLIN 


Type Name 
L*1  UNBLNK 


b= 


Sep-1 
gep-1 


Be 98318315 


GE 


We-sep-1984 02:16:11 YANG FORTRAN ¥5.4256 page 36 


OUTPUT AN ERROR MESSAGE 


eres eying}? 
INCLUDE "SRC$:CVTMSGCOM’ 
€ OUTPUT CONTENTS OF LINES VIA PRINT 


Wr 
o 


j 
| 
| 
50 C AND ERROR M | 
0051 TYPE 
0026 FORMAT ("SZSYSMSG-E-") 
5 GOTO 4,5,6,7,8,9,10,11,12,13,14,15) ,MSGID 
o033 TYPE 106 
5 1000 FORMAT(‘+error in error processing’) 
9087 1 TYPE 101 of 
0058 GOTO 200 
st 101 FORBAT 4 *oyntan error’) 
0 2 YPE 10 
0061 GOT 0 20 
B26 102 FORMAT('¢symbol or string too long’) 
006 3 TYPE 103 
0064 OTO 260 
0065 103 FORMAT(*+missing value’) 
0066 4 TYPE 104 
0067 GOTO 200 
0068 104 FORMAT(*+Line too long’) 
0069 5 TYPE 105 
0070 GOTO 200 
0071 105 FORMAT(*+start or increment value error’) 
BnTe 6 TYPE 106 
007 GOTO 200 
0074 106 FORMAT(‘+missing close angle bracket") 
0075 7 TYPE 107 
0076 GOTO 200 
0077 107 FORMAT(*+unrecognizable statement type’) 
0078 8 TYPE 108 
0079 GOTO 200 
0080 108 FORMAT(‘+missing end statement') 
0081 9 TYPE 109 
008 GOTO 210 
008 109 FORMA 130 fare’ open FILES.DAT') 
0084 10 ry ve 110,F SPE 
0085 0 210 
0086 110 FOR MAT( scan! 't open ',80A1) 
7 11 TYPE 111 
GOTO 200 
9 111 Aad +syntax error in message definition’) 
Be a 
0095 112 FORMATS message identifier too long') 
13 TYPE 113 
GOTO 200 
0095 113 FORMAT(‘+message identified by value is already in use’) 
14 bn e ie 
8 136 FORMAT ?stacitity name too long’) 
100 GOTO 210 
} 


i. a x 
9 


r 
Meee TRE PS SS PE e UMS RRSRAN FRetrRe sacacvensc.roneg® 


101211 FORMAT <* #can’'t open SRCD$:(1,2]SUBSYSIDS.DAT') 
1 ¢ g TYPE 97,FSP 

1 FORMAT({1X,'in file ',80a1) 

1 TYPE 98 (LENE (x) K=1,LENGTH(LINE)) 

105 8 FORMAT(11X,120A15 

1 ERRCNT=ERRCNT 

1 END 


snpttanvinananinaianiinti - 1 


ERROR 1G-sep-1964 99:16:11 VAKeI1 FontRaN ¥5.4056 | page 38 


PROGRAM SECTIONS 00 
Name Bytes Attributes 09 
0 SCODE 591 PIC CON REL LCL SHR EXE RD NOWRT LONG 09 
1 SPDATA 495 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
é SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 0 
TEXT 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
4 VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR 4 PIC OVR REL GBL SHR NOEXE RD WRT LNG $5 
§ OUT 196 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
Total Space Allocated 65662 00 
ENTRY POINTS 
Address Type Name 
0-00000000 ERROR 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 4-00000008 I*4 INDEX 2-00000000 I*4 K 
6-00000090 I*4 LASTFACNUM AP-000000048 I*4 MSGID 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 
5-00000000 I*4 OUTFLAG 
ARRAYS 
Address Type Name Bytes Dimensions 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 
3-000000E4 Ll FSPEC BO (B05 
ms s'4 44 $44 L*1 LASTPREFIX 16 19 
L*1 LINE 132 (132) 
L*1 MACRO_NAME 16 (16) 
134 Ll MACRO_SUFF IX 16 (16) 
AS L*l NAME 3s (36) 
L*1 OUTLINE 1 (132) 
-00000084 Ll PREFIX 18 (1) 
-000000C4 L*1 SYMBOL_NAME 32 (32) 
LABELS 
Address Label Address’ Label Address’ Label Address Label Address Label Address Label 
0-0000005D 1 0-00000077 091 -000000 4 oo00e0cs 5 QO-O00000DF 6 
pie (| Raia |, SRT t,o, ESS 
1-0000002B 101° 00000 102° $0 058 103° 1-00000069 104° ~ O7A 105° 1- itil 106° 


"9 
ae Meeeen ake PS1Sis | WIE MSRREREN asCrae. secacvimsc.ronsg® > 


T=poooores 115+ — =Booooros 194+ F2808BG%ES 193: S=BBRBSTES. 308° = =BBEEREE B13" ——I=BBERENGE. 1080: 


Type Name 
1*4 LENGTH 


oe 


OOon 


33 


z 


seeesssees 
WN "OC OONOUS WO” 


283383 


3 


g 


35535 


9 


ig-Sep—1984 02: 16:1) 


EVALUATE A CONSTANT EXPRESSION 
LOGICAL FUNCTION GETNUM®*1 
LU VTMSGCOM' 


INCLUDE ‘SRC$:CVTMS 

LOGICAL*®1 GETVAL 

LOGICAL*1 BINOPS(8) 

DATA BINOPS/*+",*=",%H' 8/8 Ett Nf at/ 
GE TNUM=.FALSE. 

NUM= 

IF (GETVAL().EQ..FALSE.) GOTO 300 

GETNUM=. TRUE. 

NUM=B I NVAL 


DO 200 1=1,8 
IF (LINE(COL).£Q.BINOPS(I)) GOTO 400 
CONTINUE 


1 
IF (GETVAL().EQ..TRUE.) GOTO 500 
CALL ERROR(3,MISSINGVALUE) 


GOTO 
GOTO (610,620,630,640,650,660,670,680),1 
NUM=NUM+B INVAL 


GOTO 1 


NUM=NUM®*2**B INVAL 
GOTO 100 
END 


«SRCICVTMSG.FOR 


PROGRAM SECTIONS 


Total Space Allocated 


Name 
GE TNUM 


BINOPS 
FACILITIES 
LASTPREF IX 


O_NAME 
MACRO SUF F IX 


Address 


Address 


4-0000000C 
4-00000010 
2-00000010 


Bytes 
66039 


1 


1 
3 
1 
; 
1 
3 


co 
MAMMA AUAS 


Label 


0-00000099 30 


Attributes 
PIC CON REL 
PIC CON REL 
PIC CON RE 
PIC OVR RE 
PIC OVR RE 
PIC OVR RE 
PIC OVR RE 
PIC OVR RE 
Type Name 
1*4 
I*4 


Dimensions 


2001) 


a 


BOLE LOE LER LO LO LF 
~ 


WW > SOWOo 
RMOWMAAWAONM~ 
~~ Qe we ee Qe 


Address 


8=000000K6 64 


VAX=11 FORTRAN V¥3.4-56 
DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR 


o 
m 
>< ot OE OE OE OE OE OE 
Mmmmmmmrn 


ERRCNT 
I*4 MISSINGVALUE 


Label 


8-000000¢3 66 


00000003 670 


dD 10 
16-Sep-1984 02:16:1 VAX=11 FORTRAN V3.4-56 P 43 
He he 98: 18: 1 j DISKSVMSMASTER: Unser IL. SRCICVTMSG.FOR? 


0c 
GET A TERM VALUE (USED BY GETNUM) es 
LOGIC FUNCTION GETVAL®1 Q0 
INCLUDE *SRCS:CVTMSGCOM’ 00 
LOGICAL®1 UNBLNK, TMP 00 
SIGN=0 00 
BINVAL=0 00 
GETVAL=.FALSE. 00 
IF (UNBLNK().NE.*=") GOTO 100 00 
SIGN=1 00 
COL=COL+1 00 
100 if (LINE (COL) iNE. ***) GOTO 180 00 
F CL INE (COL +i) 3h "x") GOTO 180 
8 DO 150 COL=COL+2,120 
TMP=L INE (COL) 
- IF (CTMP.LE.°9"). AND. (TMP.GE.'0° )») GOTO 130 
61 IF (CTMP.GT."F') OR. CTMP.LT.*A')) GOTO 400 
< TMP=TMP-'A'*#'9' 41 
NOE 130 GETVAL=. TRUE. 
BINVAL =BINVAL £16+(TMP="0") 
5 150 CONTI 
180 e0tg $0 COL=C 
F (Line (cot) mt Sor GOTO 400 
9 IF CLINE (COL ):6T."9") GOTO 400 
0070 GETV TRUE, 
0071 BI NVAL=BINVAL ®10¢(LINE(COL)="0" ) 
0072 00 CONTI 
907 00 CALL ERROR (4 TOOLONG) 
7% GETVAL=.F 
0075 400 IF 
0076 AETUR 
007 END 


] 

| 

| 

| 

ALSE. 
SIGH.EG.15 BINVAL=-BINVAL | 
| 

| 

| 

| 


qe 44 ue 


GETVAL ib-fe Sep-1984 t 98: 1¢: i} VAX-11 FORTRAN 


-Sep-1984 DISKSVMSMASTER: fagGr ie. SRCICVTMSG. rors 
PROGRAM SECTIONS 


Name Bytes Attributes 
9 SCODE 283 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 46 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 3246 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
& VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR 4 PIC OVR REL SHR NOEXE RD WRT LONG 
OuT 496 PIC OVR REL GB SHR NOEXE RD WRT LONG 
FACNAMS 64052 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 64867 | 
| 
ENTRY POINTS | 
Address Type Name 
0-00000000 L*1l GETVAL 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 4-00000008 I*4 INDEX 6-00000090 I*4 LASTFACNUM 
4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG 2-00000004 I*4 SIGN 
2-00000000 L*l TMP 2-00000008 I*4 TOOLONG 
ARRAYS 
Address Type Name Bytes Dimensions 
L*1 FACILITIES 64032 (32, 2001) 
coe 4 #1 80 (B05 
L*1 LASTPREFIX 16 C19) 
L*1 LINE 132 (132) 
L*1 MACRO_NAME 16 (16) 
L*1 MACRO_SUFF IX 16 (16) 
Ane L*1 NAME 3 (39) 
L*1 OUTLINE 1 (132) 
L*1 PREFIX 18 (16) 
$-00000084 L*1 SYMBOL_NAME 32 (32) 
LABELS 
Address Label Address Label Address Label Address’ Label Address Label Address Label 
0-00000028 100 0-0000008E 130 e 150 O-O00000AF 180 ** 200 0-000000FB 300 
0-000001 400 


F 10 
16-Sep-1 :16: VAX-11 FORTRAN V¥3.4-56 Page 45 
— $-208- 138% 9g: 19:42 DISK VMSMASTER: EMSGFIL.SRCICVIMSG.FORSY 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 


ERROR L*1 UNBLNK 


OO 


200 
400 


Ease FERESCULeUTENSuESSES 
"3 


10 
16-Sep-1984 02:16:1 
g-Sen-1984 Oe: 1g:f) 
GET THE NEXT STRING TOKEN IN THE LINE, FALSE If NONE 


LOGICAL FUNCTION GETIDENT®1 
INCLUD or taal 


— 


T . 
»';".OR.UNBLNK().EQ.0) GOTO 400 


$') GOTO 100 
*) GOTO 100 

ee Sa (COL).LE.'Z")) GOTO 100 

O°) OR: CLINE (COL) .GT.*9")) GOTO 400 


S GREATER THAN MAXTOKSIZ 
) GOTO 200 


v 
A 
° 


ta 4 GY ee eT Oe 
(natin Leste ate Late Led eee 


OO 
5 fal 
bee 
mmr 4m 
mem + We «= oO 


ss 
tad 


VAX=11 FORTRAN 
DISKSVMSMASTER 


.f 


3.4-56 


MSG 


- Page 46 
FIL.SRCICVTMSG.FOR: 4 


) 


| 


GETIDENT 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 L*1 


VARIABLES 
Address Type 


LABELS 


Address Label 
0-0000007F 100 


Total Space Allocated 


Name 
GETIDENT 


Name 
BINVAL 
CURSEV 
LASTFACNUM 
TOOLONG 


Name 
FACILITIES 
LASTPREF IX 
LIN 


MACRO_NAME 
MACRO SUF F 1X 
NAM 


SYMBOL _NAME 


Address 
0-000000A1 


Attributes 


vuvvvvUU 
ee a 
AOMOOAON 

oO 

< 

@ 
DBDDDDwDDDD 
Mmmmmmmnrmnch 


Type Name 


CODE 
I*4 ERRCNT 
NUM 


Dimensions 
2001) 


LL LL LO LL lm 


Address’ Label 
0-00000088 400 


1986 98:18:15 


RD NOWRT 


RD NOWRT 
RD TL 


VAX=-11 FORTRAN 


4=5 


3. 6 
DISKSVMSMASTER: LHSGF IL. SRCICVTMSG. FOR 


Type Name Address 


I*4 COL 


I*4 


6-00000088 
4-00000008 


I*4 OQUTCOL 5-00000000 


PF 


vA 


AR 


=. 


1 1 VAX-11 FORTRAN V3.4-56 pege 49 
71 DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; 


FUNCTION TO COMPARE 2 STRINGS GENERICALLY 
LOGICAL FUNCTION Tt wee by 1,STRNG2) 


Wr 
on 


5 LOGICAL®1 STRNG1(100) ,STRNG2(1005 
NCMPS FALSE. 
TRNGI (1) .£0.0.0R.STRNG2(1).£0.0) GOTO 300 
= 
(STRNG1(1).£0.0.0R.STRNG2(1).EQ 9) GOTO 200 
(STRNGI (1) .NE.STRNG (1)) GOTO 30 
C 


a 


4 


22 


LLQLLLL2LLL22] 


GENCMP 


PROGRAM SECTIONS 
Name 


0 SCODE 
2 SLOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 L*1 GENCMP 


VARIABLES 
Address Type Name 
2-00000004 I*4 | 


ARRAYS 
Address Type Name 
AP-00000004@ L*1 STRNG1 
AP-00000008@ L*1 STRNG2 
LABELS 
Address Label 


ee 100 0-00000053 200 


as 


140 


ig sop-1984 0g: 1¢: 711 VAX=11 FORTRAN 
715 DISKSVMSMASTER: 


-Sep-1984 


Attributes 


PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Dimensions 


(100) 
(100) 


Address Label 
0-00000057 300 


-56 
MSGFIL.SRCICVTMSG. FOR: 


UI 


PI 


VA 


ifePeoctgee OReIgsT]yanedt oar 


OOo 


FUNCTION TO COMPARE 2 STRINGS EXACTLY 
OGICA f NCTION NT#1(STRN TR 
L if L FUNCTIO! Att #1(S Ghes NG2) 


LOGICAL®1 STRNG1 ),STRNG2( 

IDENT =.F A ge 

DO 100 1=1,100 

IF (STRNGI(I).NE.STRNG2(1)) GOTO 30 00, 

IF (STRNG1(1).£0.0.AND.STRNG2(1).£Q.0) GOTO 200 
IF (STRNG1(1).£0.0.0R.STRNG2(1).£0.0) GOTO 3 
CONT INUE 

IDENT=. TRUE 

RETURN 

END 


R 
A 


TR 
ST 


RAN 
ER 


Rik 


« SRCICVTMSG.FOR; 
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2,2 


0( 
O( 
O( 
OC 
0( 
O( 
0( 
OC 
et 
O( 
OC 
O( 
OC 
OC 
0 
OC 
OC 
OC 
OC 
O( 
Of 


IDENT 


PROGRAM SECTIONS 
Name 


8 SCODE 
SLOCAL 
Total Space Allocated 


ENTRY POINTS 


Address Type Name 
0-00000000 L*1 IDENT 
VARIABLES 
Address Type Name 
2-00000004 I*4 | 
ARRAYS 
Address Type Name 
AP-000000048 L*1 STRNG1 
AP-00000008@ L*1 STRNG2 
LABELS 
Address Label 


100 


Bytes 
ag 


140 


Bytes 


100 
100 


Label 
0-00000053 200 


Attributes 


PIC CON REL LC 
PIC CON REL LC 


Dimensions 
(100) 
(100) 


Address’ Label 
0-00000057 300 


L 
L 


10 


ig-epn 984 02:16:11 


SHR EX 
NOSHR NOEX 


RD NOWRT 


WRT 


VAX= 
DISK 


LONG 
LONG 


1 FORTR 
VMSMAST 


A 
E 


t 


P 
- SRCICVTMSG.FOR 


% % 52 


o28 


2 


100 


200 


300 


SES SCO SS OTS oES 
WN "OC OONOUSWwN—OOU 


400 


28 


500 
600 


10 -1984 
if Sep-1984 + Ht 18 
CONCATINATE 2 STRINGS TOGETHER, OUTPUT IN THIRD ARGUMENT 
SUBROUTINE CONCAT(STRNG] ,STRNG2,STRNGS) 
LOGICAL #1 VSERNGH (100) St STRNG2 (100) ,STRNG3(100) ,STRNGS (100) 


bO 1=1,99 
STRNGG (1) =STRN 62(1) 
IF (STRNG4(1).E0.0) GOTO 200 


CONT INUE 
Be, » TOOLONG) 


DO I=7 
STRNG das tenct 
IF (STRNG3(I). ea 3) GOTO 400 
tout? NUE 
CALL ERROR(2, TOOLONG) 
GOTO 60 
D0 500 J=1,99 
STRNG (1=1 5) =STRNGS( 
iF (STRNG3(1-14J) .£Q. 3 GOTO 600 
LENT INGE 
CALL ERROR(2, TOOLONG) 
om 


11 
15 


VAX=11_ FORTRAN 
DISKSVMSMASTER: 


3.4-56 
MSGFIL.SRCICVTMSG.FOR; 


a3 
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Gl 


T = - P 
een st 3p 198¢ 98: 18: 13 DT SKSUMSMAS TER: Yasric. sRcIcvTHsG. rors? ss 
PROGRAM SECTIONS 


Name Bytes Attributes 
? SCODE 164 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 4 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 184 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ OUT g PIC OVR REL GBL SHR NOEXE RD WRT LONG 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 64900 
ENTRY POINTS 
Address Type Name 
0-00000000 CONCAT 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I1*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-0000001 I*4 ERRCNT 2-00000064 I*4 | 4-00000008 I*4 INDEX 
-0000006C I*4 J 6-00000090 I*4 LASTFACNUM 4-00000000 I*4 NUM 6-00000000 I*4 OQUTCOL 
-00000000 I*4 OUTFLAG 2-00000068 I*4 TOOLONG 
ARRAYS 
Address Type Name Bytes Dimensions 
FACILITIES 64032 (32, 2001) 
SPEC 80 (B05 
LASTPREF IX 1 19 
LINE 132 (132) 
MACRO_NAME 16 (16) 
MACRO_ SUFFIX 1 (16) 
NAME ; 763 
g OUTLINE 1 (132) 
PREF IX 1 (16) 
AP STRNG1 10 £199) 
AP STRNG 100 (100) 
NecBagggoo" tet ame 133 0p 
$~p00000Ce L*1 SYMBOL_NAME : (395 


SSSSSSSSSSSSSSSS 


CONCAT 


LABELS 
Address 


ef 


Type Name 
ERROR 


Label 
100 


Address Label 
0-0000004E 200 


FUNCTIONS AND SUBROUTINES REFERENCED 


Address 


Label 
300 


ee ee 


iebeoctage 98:16:1 


Address Label 
0-00000075 400 


VAX=1 
DISKS 


Address 


fe 


1_ FORTRAN | Eo 
VMSMASTER: CMSGF 


Label 
500 


-SRCICVTMSG.FOR; 


Address Label 
0-000000A3 600 


th 55 


ae». hag 


Sep-19 :16:1 VAX=11 FORTRAN V3.4-56 Page 56 
et 30-1984 98: 18: 15 DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; | | 


RETURN THE LENGTH OF AN ASCIZ STRING 


INTEGER ty 3h tr hot ba aaa 
INCLUDE 5 eee CVTMSGCOM’ 
LOG 6orL 15§ < ) 


ner 100 
If (STRNG (LENGTH). EQ.0) GOTO 200 
100 ee ae 


: 
‘ae 


CALL_ERROR(2,TOOLONG) 
200 LENGTHLENG Tio 


Sssss 
DAA AAGAIA 
Ouewr 


ee 


mae ibeoctage 021631 DISKSUMSMASTER:CRSGFIL.SRCICVTMSG.FORST® 


PROGRAM SECTIONS of 
Name Bytes Attributes 06 

9 $c $coD 62 PIC CON REL LCL SHR EXE RD NOWRT LONG 00 
$P Vt PIC CON REL LCL SHR NOEXE RD NOWRT LONG 00 

¢ 3 $L OCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 00 
TEX 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 

4 VAR 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 

5 LOGUAR , 4 pic OVR REL GBL SHR NOEXE RD WRT LONG 4 

$ OU PA CNANS 66083 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 
Total Space Allocated 64654 4 


ENTRY POINTS 
Address Type Name 
0-00000000 I*4 LENGTH 


VARIABLES 


OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name Address Type Name Address Type Name Address Type Name 


4-00000014 I*4 BINVAL 4-0000000C I1*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CUR 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 4-00000008 I*4 INDEX 6-00060090 [#4 LASTEACNUM 
4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG 2-00000004 I*4 T00 
ARRAYS 
Address Type Name Bytes Dimensions 


FACILITIES 64032 (32, 2001) 
BO (BOS 
LASTPREF IX 16 (16) 
LINE 132 (132) 
MACRO_NAME 16 (16) 
MACRO_SUFF IX 16 (16) 
NAME 32 (3@) 
OUTLINE 1 (132) 
PREFIX 16 (16) 
STRNG 199 (100) 
SYMBOL _NAME (32) 


Address Label Address Label 
ee 100 0-00000036 200 


LABELS 


— —_ " —, —o 


LENGTH 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
ERROR 


1" 


i 
eo- 
Sep- 


198 


4 
4 


18: 


1 
1 


iF 


— > 


1 
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VAX=11 FORTRAN V3.4-56 
DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR 


nore 58 


sss 


wn 


Ouse 


ww 


WN OOU Fw 


QOOn 


100 
200 


MOVE AN ASCIZ STRING TO ANOTHER BUFFER 


SUBROUTINE Ch vtncorone” STRNG2) 
INCLUDE "RCS: 
LOGICAL*1 STRNGT CH ‘ OSTRNG2(100) 


DO 100 I= 
STRNG2(1)=$TRNG1 (1) 
IF CSTanG2C)-€0. ) GOTO 200 


CONT INU 
CALL_ERROR(2,TOOLONG) 
ee 


Th 


Sep-1 
Sep-1 


Be 98:19:15 


VAX 
D 


AX- 
IS 


-11 FORTRAN ¥3.4-5 
KSVMSMASTER: miGr ic. SRCICVTMSG.FOR; 


st 9 


58 


SS8833s 


MOVNAM 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
4-00000014 I*4 
6-0000008C [#4 
=00000090 [#4 
2-00009004 [#4 
ARRAYS 


Address Type 


Total Space Allocated 


Name 
MOVNAM 


BINVAL 
CURSEV 


LASTFACNUM 
TOOLONG 


FACILITIES 
LASTPREF IX 
LINE 


MACRO 


_NAME 
MACRO~ SUF F 1X 
NAM 


STRNG2 
SYMBOL _NAME 


on 
= 
oO 
Ww 
m 


— 


— 


—— 
Woo—Wwi OO 


MOOANMNMASUIAO 


igSeoe1g8e OB:16:1) MCL Tea 


-Sep-1984 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Type Name Address Type Name 
I*4 CODE 4-00000004 I1*4 COL 
I*4 ERRCNT 2-00000000 I*4 | 
1*4 NUM 6-00000000 I*4 OUTCOL 


Dimensions 
2001) 


~~ 


a 


QL LL LL em lm 
_—~N 


We WW OW 


MOOOWNIAAWOON 
“OO Kw Rye we wo hw ws 


taseric. SRCICVTMSG. FOR: 


Address Type 


if-te Been Tae PEiiS1t | Web GQaSteN Pastrae. secacvrnse.roney® °" 


MOVNAM 


LABELS $0 
Address Label Address Label 80 

ee 100 0-00000044 200 3 
FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
ERROR 


S33383ss 


00: 
00: 
00: 
00: 
00: 
00: 
00: 
00: 


yu 
Meee tees PSs PaaS REREN FR ete RO cecacvrmsc.ronet® ° 


ior 
ES SEARCH FOR THE NEXT NONBLANK CHARACTER 
LOGICAL FUNCTION UNBLNK#1 
3 INCLUDE *SRC$:CVIRSGCOM® 
IF (COL .GT.120), GOTO 150 
50 DO 100 COL=COL,120 
0051 IF CLINE (COL) .GE.11] .AND LINE (COL) .LE.“"14) GOTO 100 
é IF (LINE(COL).NE.* ') GOTO 200 
1 CONT INUE 
4 150 = COL=121 
0055 200 UNBLNK=LINE(COL) 
é RETURN 
005 E 


719kC §S:18:15 — DASkSUMSMASTER:TASGFAY.SRCICVIMSG.FORTT® °> 
PROGRAM SECTIONS 


3 | 


UNBLNK 


Name Bytes Attributes 
$SCODE 92 PIC CON REL LCL SHR EXE R&D NOWRT LONG 
SLOCAL PIC CON REL LCL NOSHR NOEXE WRT LONG 
TEXT 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOGVAR PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ OUT 49 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 64644 
ENTRY POINTS 
Address Type Name 
0-00000000 L*1 UNBLNK 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 4-00000008 I*4 INDEX 6-00000090 I*4 LASTFACNUM 
4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG 
ARRAYS 
Address Type Name Bytes Dimensions 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 
3-000000E4 Lel FSP 0 (805 
-00000094 L*1 LASTPREFIX 16 C19) 
L*1 LINE 132 (132) 
L*1 MACRO_NAME 16 (16) 
-00000134 L*l MACRO_SUFFIX 16 (16) 
=“000000A4 L*1 NAME 35 (76 
-00000004 L*1 OUTLINE 1 (132) 
~Ropponee L*1 PREFIX 18 (18) 
C4 L*l SYMBOL_NAME 32. (32) 
LABELS 
Address Label Address’ Label Address’ Label 


0-0000003E 100 0-0000004C 200 


0-00000047 150 


COOon 


Wr 


BesoreREsesevavancsseeees 


on 


11 
16-Sep-1984 02:16:1 VAX-11 FORTRAN V3.4-56 Page 64 +t 
f-S00-1984 Oe: 19th DISKSVMSMASTER: CMSGF IL. SRCICVTMSG. FORTY 
GET THE NEXT LINE FROM THE INPUT FILE 


LOGICAL*1 FUNCTION GETLIN 
INCLUDE | SRC$:CVTMSGCOM" 


LOGICAL®1 UNBLNK 
READ (1,99 END=100) LEN, (LINE(K) ,K=1,LEN) 
FORMAT(Q,120A1) 


LINE (LEN#1)=0 

GETLIN=. TRUE. 

OUTPUT THE LINE IF COMMENT OR NULL LINE 

IF (UNBLNK().€Q.°:".OR.UNBLNK().£Q.0) THEN 
BIAS=OUTCOL+1-COL 
CALL BUFFER(LINE) 
IF (UNBLNK().EQ.°;") OUTLINE(BIAS+COL) = '!' 
CALL OUTPUT_LINE 

END 

RETURN 

GETLIN=.FALSE. 

RETURN 

END 


————_—_————_———_—__, 


M11 
GETLIN 16-Sep-1984 02:16:1 VAX-11 FORTRAN V3.4-56 e 65 
meer 1 98:18:15 DISKSVMSMASTER: CMSGFIL.SRCIJCVTMSG.FOR; Rog 

PROGRAM SECTIONS é 
Name Bytes Attributes ; 
0 SCODE 195 PIC CON REL LCL SHR EXE RD NOWRT LONG ; 
1 SPDATA $ PIC CON REL LCL SHR NOEXE RD NOWR? LONG : 
: SLOCAL PIC CON REL LCI NOSHR NOEXE RD WRT LONG : 
TEXT 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG : 
4 VARS 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG F 
5 LOGVAR 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG ; 
6 T $4 PIC OVR REL GBL SHR NOEXE RD WRT LONG ; 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG : 
Total Space Allocated 64781 ; 
ENTRY POINTS ; 
Address Type Name : 
0-00000000 L*1 GETLIN : 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name ; 
2-0000000C 14 BIAS 4-00000014 1*4 BINVAL 4-0000000C 14 CODE 4-00000004 1*4 COL : 
6-00000088 I*4 CURNUM 6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 4-00000008 I*4 INDEX : 
2-00000008 I*4 K 6-00000090 1*4 LASTFACNUM 2-00000004 I*4 LEN 4-00000000 I*4 NUM : 
6-00000000 I*4 OUTCOL 5-00000000 I*4 OUTFLAG : 
ARRAYS ; 
Address Type Name Bytes Dimensions ; 
7-00000000 L*1 FACILITIES 64032 (32 2001) : 
3-000000E4 L*l FSP BO (B05 : 
00000094 L*1 LASTPREFIX 16 (1) ; 
Lel LINE 132 (132) : 
L*l MACRO_NAME 16 (16) : 
134 Lel MACRO-SUFFIX 16 (16) 3 
“30000006 t=} BUTEINE 133. (792) : 
300090084 Lel PREFIX 18 (16) : 
-000000C4 L*1 SYMBOL_NAME 32 (32) ; 
LABELS 
Address Label Address Label ; 
1-00000000 99° 0-000000c0 100 : 


a fe Beb-19bC 8:18:15 DISKSUMSRASTEN:FRSGriP.sAcacvrmsc.roney® °° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
BUFFER OUTPUT_LINE L*1 UNBLNK 


ifort gee 16:11 


OUTPUT AN ASCIZ STRING TO THE OUTPUT LINE BUFFER 
TUProee Each cuTnsccont 
RING ) 
shi 1 Hs t4ty Sah 
no ).£0,0) esto 100 
OL. bs i 0 200 


SESTRING(I) 


| need “2 here hd 


CALL _ERROR(4,LINE_OVERFLOW) 
END 


years FORTRAN Waste -56 
DISKSVMSMASTER:LMSGFIL.SRCICVTMSG.FOR; 


+ 67 


BUFFER ig-fe 3007138) 9g: 1¢: i} VAX=11_ FORTRAN 68 


Eh es 4 page 
-Sep-1 DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; 


PROGRAM SECTIONS 


Name Bytes Attributes ‘ 
0 SCODE 88 PIC CON REL LCL SHR EXE RD NOWRT LONG ; 
1 SPDATA 4 PIC CON REL LCL  SWR NOEXE RD NOWRT LONG ° 
¢ Ft $L ont 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG ° 

TEX 324 PIC OVR REL GBL SHR NOEXE RD WRT LONG ° 
4 VAR 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG ° 
5 te OGvAR 4 PIC OVR REL GBL SHR NOEXE e 
§ ou 195 PIC OVR REL GBL SHR NOEXE RD WRT LONG ° 

PKCHARS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG ° 

Total Space Allocated 64680 : 


ENTRY POINTS 
Address Type Name 


z 
Oo 
= 
» 
—_ 
- 
oO 
z 
(3) 


0-00000000 BUFFER 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I1*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT » 00000000 I*4 | 4-00000008 I*4 INDEX 
6-00000090 I*4 LASTFACNUM 2-00000004 I*4 LINE_OVERFLOW 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 
5-00000000 I*4 OUTFLAG 
ARRAYS 
Address Type Name Bytes Dimensions 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 
3 £4 Ll FSPEC 80 (B05 
L*l LASTPREFIX 16 (19 
L*l LINE 132 (132) 
-00000094 L*l MACRO_NAME 16 (16) 
134 L®*l MACRO_SUFFIX 1 (16) 
AG L*l NAME 33 (36) 
g L*l OUTLINE 1 (132) 
84 L*l PREFIX 18 (16) 
AP @L*1 STRING "§ (128) 
3 C4 L*1 SYMBOL_NAME 2 (32) 
LABELS iv 
Address’ Label Address’ Label Address’ Label e 
ee 10 0-0000004E 100 0-0000004F 200 


pure ig-Bep-1964 02:16:11 YANG FORTRAN V5.4=56 Page 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
ERROR 


. 
a 
° 
. 
. 
Ld 
. 
. 
7 
e 
. 
. 
° 
. 
° 
. 
e 
= 
. 
. 
° 
. 
a 
e 
* 
. 
° 
. 
o 
. 
. 
. 
e 
7 
7 


eR lt 7 
if }eo-1 984 98: 18: 15 DT SKSUMSMASTER: FHSGFIC. SRCICVTMSG.FOR; i 70 


1 C 
§ : OUTPUT A DECIMAL NUMBER TO THE OUTPUT LINE BUFFER 
SUBROUTINE BUF NUM (NUMBER) 
5 LOGICAL*®1 CHARS(9) 
CHARACTER*8 STRING 
EQUIVALENCE ee elas thmeeks 
CALL 4 ee NV_OUT_1] (ZVAL (NUMBER) , STRING) 
CHARS (9) 
10 
11 
\§ 10 
1 20 CALL BUFFER(ZREF (CHARS(1))) 
14 RETURN 
15 END 


D0 10 I=1,8 | 
IF (CHARS(I) .NE.* *) GOTO 20 


F 12 
cape oe ttt i a 


PROGRAM SECTIONS 
Name Bytes Attributes 
S otk a2 PIE EON REL CEL NOSHR NOEXE RD “OURT LONG 
Total Space Allocated 104 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
2-0000000C I*4 | 


Address Type Name 
AP=00000004@ I*4 NUMBER 


Address Type Name 
2-00000000 CHAR STRING 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 L*1 CHARS 9 (9) 
LABELS 
Address Label Address Label 
ef 10 0-0000002A 20 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
BUFFER 


Type Name 
FORSCNV_OUT_] 


1_ FORTRAN 


Ye seete page 7 
VMSMASTER: LMSGFIL.SRCICVTMSG.FOR; 


1 


~4 


if-ep-1964 REi1S:1s = SESUmSRASTeN: Pascriy. sacacvrmsc.roney” 


‘2 

; ¢ OUTPUT THE CURRENT OUTPUT LINE BUFFER TO THE OUTPUT FILE 
SUBROUT INE aytpur LINE 

3 out 180) (OUTLINE CRD Ket, OUTCOL) 

5 100 {2 ; 

g oy Tele 

5 END 
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H 12 
wat chy "SSepetbe TS1S15 — biSebumsmasten:taseric.sacacvimsc.ronst 7 


PROGRAM SECTIONS 


LABELS 
Address Label 
1-00000000 100' 


Name Bytes Attributes 
0 $COD 75 PIC CON REL LCL SHR EXE RD NOWRT LONG : 
1 SPDATA 6 PIC CON REL LCL SHR NOEXE RD NOWRT LONG ‘ 
g SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG ‘ 
TEXT 3¢¢ PIC OVR REL GBL SHR NOEXE RD WRT LONG ‘ 
& VARS PIC OVR REL GBL SHR NOEXE RD WRT LONG , 
5 LOGVAR PIC OVR REL GBL SHR NOEXE RD WRT LONG ‘ 
§ OuT 196 PIC OVR REL GBL SHR NOEXE RD WRT LONG ‘ 
FACNAMS 64032 PIC OVR REL GBL SHR NOEXE RD WRT LONG ° 
Total Space Allocated 64633 ; 
ENTRY POINTS 3 
Address Type Name 
0-00000000 OUTPUT_LINE 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000014 I*4 BINVAL 4-0000000C I*4 CODE 4-00000004 I*4 COL 6-00000088 I*4 CURNUM 
6-0000008C I*4 CURSEV 4-00000010 I*4 ERRCNT 4-00000008 I*4 INDEX 2-00000000 I*4 kK 
6-00000090 I*4 LASTFACNUM 4-00000000 I*4 NUM 6-00000000 I*4 OUTCOL 5- 750000000 I1*4 OUTFLAG 
ARRAYS 
Address Type Name Bytes Dimensions 
7-00000000 L*1 FACILITIES 64032 (32, 2001) 
3-000000E4 L#1 80 (805 
4 L*1 LASTPREFIX 16 19 
L*1 IN 132 (132) 
misses ty L*1 MACRO_NAME 16 (16) 
1 L*1 MACRO_SUFFIX 16 (16) 
AS L*l NAME $$ 6) 
L*1 OUTLINE 1 (132) 
3: L*1 PREFIX 16 (18) 
-000000C4 L*1 SYMBOL_NAME 32 (32) | 
| 
| 


ENTRY POINTS 
Address 
0-00000000 


Type Name 
OPEN_OUTPUT 


ne 
‘ ¢ OPEN THE OUTPUT FILE 
SUBROUT INE OPEN gourpur 
3 INCLUDE 'SRC$:C MSGCOM" 
Matte STRINGCT 
0 CLOSE (UNIT= 
1 CALL MOUNUNCT SPEC STRI NG) 
2 DO 10 PO sLENGTH( STRING ) 
IF (STRING(POS).€Q.'.') goto. 20 
0054 «=«10 CONTINUE 
55s 20 TFCSTRING(POS) £0 *.") CALL MOVNAM(ZREF ("MSG") ,STRING(POS)) 
6 DO 30 POS=P0S,1,- 
5 IF (STRING(POS) .£0.°)".OR. STRING (POS) .EQ.*>' 
0058 .OR.STRING(POS).EQ.':') GOTO 4 
0059 + ~3=- 30 CONTINUE 
0060 40 POS=P0S+1 
0061 «=«C¢ THE QUTPUT FILE WILL BE PUT IN THE DEFAULT DIR 
006¢ OPENCUNIT=2, ,NAME=ST RING(P 0S). TYPE="NEW', CARRIA 
006 QUT COL= 
0064 RETUR 
0065 100 CALL ERROR (9, FILNOTFND) 
0066 RETURN 
0067 
PROGRAM SECTIONS 
Name Bytes Attributes 
CODE 158 PIC CON REL 
1 SPDATA 9 PIC CON REL 
OCAL 20 PIC CON REL 
TEXT 24 PIC OVR REL 
4 VARS 24 PIC OVR REL 
LOGVAR 4 PIC OVR REL 
OuT 164 PIC OVR REL 
F ACNAMS 64032 PIC OVR REL 
Total Space Allocated 64935 


Seria 2:12 yaactt cone 


tascric. SRCICVTMSG.FOR; i 


FORTRAN /LIS=LIS$:CVTMSG/OBJ=0BJ$:CVTMSG MSRC$:CVTMSG 


/NOMACHINE_CODE /CONTINUATIONS=19 


OPEN_OUTPUT ipeSe $ep-1984 t 98: 19:1] VAX-11 FORTRAN Wes8e76 page 75 
-Sep-1984 DISKSVMSMASTER: LMSGFIL.SRCICVTMSG.FOR; 

VARIABLES ; 
Address Type Name Address Type Name Address Type Name Address Type Name 
14 1*4 BINVAL 4-0000000¢ I*4 CODE 4 1*4 COL 6-00000088 I*4 CURNUM : 
BC I*4 CURSEV 2-58 2000 I*4 ERRCNT 2-00 $500084 I*4 FILNOTFND $7$0990008 I*4 INDEX : 
-00000090 I1*4 LASTFACNUM 0000000 I*4 NUM 0000003 I*4 OUTCOL 5-00000000 I*4 OUTFLAG ; 
-00000080 I*4 POS | : 
ARRAYS i 
Address Type Name Bytes Dimensions ; 
7-00000000 L*1 FACILITIES 64032 (32, 2001) ; 
$-00000056 tty LASTPREF IX 13 (9) 
~00000000 L*1 LIN 133, (182) ; 
-00000094 L*1 MACRO_NAME 16 (16) : 
“Ronnane + a alae 32 (18) : 
00000004 L*] OUTLINE 133, 9) ; 
-00000084 L*1 PREFIX 16 (16) : 
00000000 L*1 STRING 128 (128) : 
-000000C4 L*1 SYMBOL_NAME 32. (32) : 
Address Label Address Label Address Label Address Label Address Label ; 
hel 10 0-00000036 20 +e 30 0-00000077 40 0-00000095 100 ; 
FUNCTIONS AND SUBROUTINES REFERENCED ; 
Type Name Type Name Type Name Type Name Type Name : 
ERROR FORSCLOSE FORSOPEN I*4 LENGTH MOVNAM : 
COMMAND QUALIFIERS ; 


Peer OSE ae ee eee an ee ee es nr ae rennet a emer 


K 12 
OPEN_OUTPUT Vg=pep= 138% 991671] VAX=11 FORTRAN EE os + page 76 
“Sep-1984 15:15:15 DISKSVMSMASTER: CMSGFIL.SRCICVTMSG.FOR; 


COMPILATION STATISTICS 


Run Time: 4.98 seconds 
Elapsed Time: : 10 seconds 
Page Faults: é 

Dynamic Memory: 12 pages 


AH-BT13A-SE 
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